home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Revista CD Expert 37
/
CD Expert nº 37 Railroad Tycoon.iso
/
Videos
/
Nocturne
/
SMK1.dir
/
00006_Script_6
< prev
Wrap
Text File
|
1998-05-25
|
424b
|
19 lines
on exitFrame
--1280 x 1024
-- play full-screen
set smk=new(xtra "smacker")
SmackSetDisplayMode(smk,4)
SmackOpen(smk,(the pathname)&"xtras\video.smk",1,0)
SmackSetPosition smk,-330,-278
SmackSetInterfaceKeys(smk,"\e\s\m")
SmackPlayLooped(smk,1)
set lastkey=SmackGetLastKey(smk)
SmackClose(smk)
set smk=0
quit
-- updatestage
If lastkey="\e" then quit
go to the frame
end